(indent-line-to): Delete spaces before inserting a tab.

diff --git a/lisp/indent.el b/lisp/indent.el
index 47ef23d4aa371c9accb303dbe39b939a96dc7da0..19786237d6decd57f38356e1fc03def12c6a9905 100644 (file)
--- a/lisp/indent.el
+++ b/lisp/indent.el
@@ -82,6 +82,9 @@ only if necessary.  It leaves point at end of indentation."
   (back-to-indentation)
   (let ((cur-col (current-column)))
     (cond ((< cur-col column)
+          (if (> (- column (* (/ cur-col tab-width) tab-width)) tab-width)
+              (delete-region (point)
+                             (progn (skip-chars-backward " ") (point))))
           (indent-to column))
          ((> cur-col column) ; too far right (after tab?)
           (delete-region (progn (move-to-column column t) (point))